ДЕРЖАВНИЙ ВИЩИЙ НАВЧАЛЬНИЙ ЗАКЛАД “УЖГОРОДСЬКИЙ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ” Факультет інформаційних технологій Лабораторна робота №12  Лабораторна робота №12. Тема: Робота з множинами. Мета: Застосування операцій над множинами для розв'язування задач. Вивчити питання: Множина. Опис типу. Операції над множинами. Завдання до роботи: Скласти програму на мові Pascal для розв'язування задачі за індивідуальним завданням. Оформити звіт про виконання роботи та завантажити його в системі електронного навчання ДВНЗ «УжНУ» в установлений термін. Варіант 3 Дано N множин. Визначити елементи, які існують у всіх множинах. ХІД РОБОТИ Дано N множин. Визначити елементи, які існують у всіх множинах. uses crt; type mnz=set of byte; var a:array[1..100] of mnz; n,i,j,x:byte; m:mnz; begin clrscr; write('Kilkist mnozun n='); readln(n); writeln('Enter elements ',n,' mnozun, end enter-number mnozunu:'); for i:=1 to n do begin writeln('mnozuna',i); a[i]:=[]; repeat repeat readln(x); until x in [0..255]; a[i]:=a[i]+[x]; until x=i; end; clrscr; writeln('Vuxidna mnozuna:'); for i:=1 to n do begin write(i:2,'-> '); for j:=0 to 255 do if j in a[i] then write(j:4); writeln; end; m:=a[1]; for i:=1 to n do m:=m*a[i]; writeln('Elements all mnozun:'); if m=[] then write('No elements!') else for j:=0 to 255 do if j in m then write(j:4); readln end. / / ВИСНОВОК За допомогою даної лабораторної роботи я навчилася застосовувати операцій над множинами для розв'язування задач.